68
I have a hierarchy and I need to filter only root items that match, with thier childs

Dim h
With Excombobox1
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.FilterInclude = exontrol.EXCOMBOBOXLib.FilterIncludeEnum.exRootsWithChilds
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "R1"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
End With
66
I have a hierarchy and I need to filter only parent items that match, including thier childs

Dim h
With Excombobox1
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.FilterInclude = exontrol.EXCOMBOBOXLib.FilterIncludeEnum.exItemsWithChilds
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "R1"
	End With
	With .Items
		h = .AddItem("R1")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
		.set_ExpandItem(h,True)
		h = .AddItem("R2")
		.InsertItem(h,Nothing,"C1")
		.InsertItem(h,Nothing,"C2")
	End With
	.ApplyFilter()
End With
558
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

With Excombobox1
	.BeginUpdate()
	.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
	.HeaderAppearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.Etched
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.GridLineStyle = exontrol.EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesVSolid
	With .Columns
		.Add("Item")
		With .Add("Pos")
			.Position = 0
			.Width = 32
			.AllowSizing = False
			.FormatColumn = "1 index ``"
		End With
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With
472
I cannot seem to get autosearch=1 (contains) in the column object to search properly. It still only finds items that start with the typed character. I want to it look to see if the typed character(s) are contained in the item. I Can't seem to get this to work

With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.AutoSearch = True
	.AutoDropDown = True
	.IntegralHeight = True
	.Columns.Add("Default").AutoSearch = exontrol.EXCOMBOBOXLib.AutoSearchEnum.exContains
	With .Items
		.AddItem("This is a bit of text")
		.AddItem("This is a another text")
	End With
	.EndUpdate()
End With
94
I can't scroll to the end of the data. What can I do

With Excombobox1
	.ScrollBySingleLine = True
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.Columns.Add("Column")
	With .Items
		.set_ItemHeight(.AddItem(0),13)
	End With
	.PutItems(.GetItems(0))
	With .Items
		.set_ItemHeight(.AddItem(1),26)
	End With
	.PutItems(.GetItems(0))
	With .Items
		.set_ItemHeight(.AddItem(2),36)
	End With
	.PutItems(.GetItems(0))
	With .Items
		.set_ItemHeight(.AddItem(3),48)
	End With
	.PutItems(.GetItems(0))
End With
469
I am using the ScrollWidth/ScrollHeight property on 0 to hide the control's scroll bars, the question is that the drop down button is disappearing. What can be done so I can still show the drop down button

With Excombobox1
	.BeginUpdate()
	.LabelHeight = 40
	.ScrollWidth = 0
	.ScrollHeight = 0
	.DropDownButtonWidth = 40
	.EndUpdate()
End With
514
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Item").DisplayFilterButton = True
	With .Columns.Add("Pos")
		.AllowSizing = False
		.AllowSort = False
		.Width = 32
		.FormatColumn = "1 apos ``"
		.Position = 0
	End With
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.FilterBarFont = .Font
	.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
	.FilterBarPromptPattern = "B"
	.FilterBarPromptVisible = exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	With .Columns.Item(0)
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item A|Item B"
	End With
	.ApplyFilter()
	.EndUpdate()
End With
550
I am calling Value to change the selected value, but the selection is not visible, unless I scroll to it

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	rs = New ADODB.Recordset()
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb",1,1)
	End With
	.DataSource = rs
	.Value = 10311
	With .Items
		.EnsureVisibleItem(.FocusItem)
	End With
	.EndUpdate()
End With
146
I've seen that you can change the visual appearance for the scroll bar. How can I do that

With Excombobox1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn")
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exSBtn,&H1000000)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exSBtnP,&H2000000)
	.set_Background32(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exSBtnH,&H3000000)
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exHSBack,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
	.set_Background(exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exScrollHoverAll Or exontrol.EXCOMBOBOXLib.BackgroundPartEnum.exDateScrollThumb,Color.FromArgb(240,240,240))
	.Columns.Add("S").Width = 32
	.Columns.Add("Level 1").LevelKey = 1
	.Columns.Add("Level 2").LevelKey = 1
	.Columns.Add("Level 3").LevelKey = 1
	.Columns.Add("E1").Width = 32
	.Columns.Add("E2").Width = 32
	.Columns.Add("E3").Width = 32
	.Columns.Add("E4").Width = 32
	.ColumnAutoResize = False
End With
119
I've seen that the width of the tooltip is variable. Can I make it larger

With Excombobox1
	.ToolTipWidth = 328
	.Columns.Add("tootip").ToolTip = "this is a tooltip that should be very very very very very very very long"
End With
2
I've added a single column, but it is displayed only on a part of the control. Is there something I can do so the column will be fully displayed on the control

With Excombobox1
	.Columns.Add("ColumnName")
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
End With
473
How would you clear the displayed selection for style DropDownList. So if a user selects or searches a value in a style DropDownList, I want to know if I can reset the control back to an empty selection

' DropUp event - Occurs when the drop-down portion of the control is hidden.
Private Sub Excombobox1_DropUp(ByVal sender As System.Object) Handles Excombobox1.DropUp
	With Excombobox1
		.Value = ""
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub Excombobox1_SelectionChanged(ByVal sender As System.Object) Handles Excombobox1.SelectionChanged
	With Excombobox1
		Debug.Print( "You selected: " )
		Debug.Print( .Value )
	End With
End Sub

With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.HeaderVisible = False
	.AutoSearch = True
	.AutoDropDown = True
	.IntegralHeight = True
	.Columns.Add("Default").AutoSearch = exontrol.EXCOMBOBOXLib.AutoSearchEnum.exContains
	With .Items
		.AddItem("This is a bit of text")
		.AddItem("This is a another text")
		.DefaultItem = .InsertItem(Nothing,Nothing,"")
		.set_ItemPosition(0,0)
		.set_SortableItem(0,False)
	End With
	.EndUpdate()
End With
560
How I can programmatically select a row (with regular combobox I can set the ListIndex right up to Listcount -1)

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.set_SelectItem(.get_ItemByIndex(1),True)
	End With
	.EndUpdate()
End With
561
How I can programmatically select a row (method 2)

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Value = "Item 2"
	.EndUpdate()
End With
88
How do lock / fix some columns to the control, so I can see them all the time, event if I scroll the columns

With Excombobox1
	.CountLockedColumns = 1
	.BackColorLock = Color.FromArgb(240,240,240)
	.ColumnAutoResize = False
	.Columns.Add("Locked").Width = 128
	.Columns.Add("Un-Locked 1").Width = 128
	.Columns.Add("Un-Locked 2").Width = 128
	.Columns.Add("Un-Locked 3").Width = 128
	With .Items
		.set_CellCaption(.AddItem("locked"),1,"unlocked")
	End With
End With
299
How do I vertically align a cell

Dim h
With Excombobox1
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exRowLines
	.Columns.Add("MultipleLine").set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine,False)
	.Columns.Add("VAlign")
	With .Items
		h = .AddItem("This is a bit of long text that should break the line")
		.set_CellCaption(h,1,"top")
		.set_CellVAlignment(h,1,exontrol.EXCOMBOBOXLib.VAlignmentEnum.exTop)
		h = .AddItem("This is a bit of long text that should break the line")
		.set_CellCaption(h,1,"middle")
		.set_CellVAlignment(h,1,exontrol.EXCOMBOBOXLib.VAlignmentEnum.exMiddle)
		h = .AddItem("This is a bit of long text that should break the line")
		.set_CellCaption(h,1,"bottom")
		.set_CellVAlignment(h,1,exontrol.EXCOMBOBOXLib.VAlignmentEnum.exBottom)
	End With
End With
84
How do I use my own icons for my radio buttons

With Excombobox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_RadioImage(False,1)
	.set_RadioImage(True,2)
	.Columns.Add("Radio").set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasRadioButton,True)
	With .Items
		.AddItem("Radio 1")
		.set_CellState(.AddItem("Radio 2"),0,1)
		.AddItem("Radio 3")
	End With
End With
83
How do I use my own icons for checkbox cells

With Excombobox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_CheckImage(exontrol.EXCOMBOBOXLib.CheckStateEnum.Unchecked,1)
	.set_CheckImage(exontrol.EXCOMBOBOXLib.CheckStateEnum.Checked,2)
	.Columns.Add("Check").set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
	With .Items
		.AddItem("Check 1")
		.set_CellState(.AddItem("Check 2"),0,1)
	End With
End With
479
How do I unselect/deselect the item (Simple style)
With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.Simple
	.Columns.Add("Def")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 3")
	End With
	.SearchColumnIndex = 0
	.Value = "Item 2"
	With .Items
		.set_SelectItem(.FocusItem,False)
	End With
	.EndUpdate()
End With
478
How do I unselect/deselect the item (DropDownList style)
With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDown
	.Columns.Add("Def")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 3")
	End With
	.SearchColumnIndex = 0
	.Value = "Item 2"
	With .Items
		.set_SelectItem(.FocusItem,False)
	End With
	.EndUpdate()
End With
477
How do I unselect/deselect the item (DropDown style)
With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDown
	.Columns.Add("Def")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 3")
	End With
	.SearchColumnIndex = 0
	.Value = "Item 2"
	With .Items
		.set_SelectItem(.FocusItem,False)
	End With
	.EndUpdate()
End With
288
How do I unselect an item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_SelectItem(h,False)
	End With
End With
155
How do I underline the numbers greater than a value

With Excombobox1
	.ConditionalFormats.Add("%0 >= 10").Underline = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
244
How do I underline an item

With Excombobox1
	.Columns.Add("Default")
	With .Items
		.set_ItemUnderline(.AddItem("underline"),True)
	End With
End With
245
How do I underline a cell or an item

With Excombobox1
	.Columns.Add("Default")
	With .Items
		.set_CellCaptionFormat(.AddItem("gets <u>underline</u> only a portion of text"),0,exontrol.EXCOMBOBOXLib.CaptionFormatEnum.exHTML)
	End With
End With
246
How do I underline a cell

With Excombobox1
	.Columns.Add("Default")
	With .Items
		.set_CellUnderline(.AddItem("underline"),0,True)
	End With
End With
325
How do I turn off the auto complete feature

With Excombobox1
	.AutoComplete = False
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
328
How do I specify the width of the drop down window

With Excombobox1
	.set_WidthList(,100)
	.AllowSizeGrip = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
327
How do I specify the minimum width of the drop down window

With Excombobox1
	.MinWidthList = 100
	.AllowSizeGrip = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
329
How do I specify the minimum height of the drop down window

With Excombobox1
	.MinHeightList = 100
	.AllowSizeGrip = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
92
How do I specify the indentation of the child items relative to their parents

Dim h
With Excombobox1
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.Indent = 11
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child")
	End With
End With
330
How do I specify the height of the drop down window

With Excombobox1
	.set_HeightList(,400)
	.MinWidthList = 100
	.AllowSizeGrip = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
338
How do I specify the height of the control's label

With Excombobox1
	.LabelHeight = 34
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
93
How do I specify the column where the tree lines / hierarchy are shown

Dim h
With Excombobox1
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	With .Items
		h = .AddItem("Root 1.1")
		.set_CellCaption(h,1,"Root 1.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1,"Child 1.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 2.1"),1,"Child 2.2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2.1")
		.set_CellCaption(h,1,"Root 2.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1,"Child 1.2")
	End With
End With
483
How do I sort the index column as numeric

' InsertItem event - Occurs after a new item has been inserted to Items collection.
Private Sub Excombobox1_InsertItem(ByVal sender As System.Object, ByVal Item As Integer) Handles Excombobox1.InsertItem
	With Excombobox1
		With .Items
			.set_CellData(Item,1,.get_ItemToIndex(Item))
		End With
	End With
End Sub

With Excombobox1
	.BeginUpdate()
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exAllLines
	.ColumnAutoResize = True
	.ShowFocusRect = False
	.SingleEdit = True
	With .Columns.Add("Next")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellPaddingLeft,4)
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exHeaderPaddingLeft,4)
	End With
	With .Columns.Add("Index")
		.AllowSizing = False
		.Width = 48
		.FormatColumn = "(((0 := (1 index ``)) mod 3) case ( default: ``; 0 : `<r><fgcolor=B0B0B0>`; 1: ``; 2 : `<c><fgcolor=808080>` )) + str(=:0)"
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat,1)
		.SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortUserData
		.Position = 0
	End With
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
		.AddItem("Item 6")
		.AddItem("Item 7")
		.AddItem("Item 8")
		.AddItem("Item 9")
		.AddItem("Item 10")
	End With
	.EndUpdate()
End With
229
How do I sort the child items

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.SortChildren(h,0,False)
	End With
End With
79
How do I sort descending a column, and put the sorting icon in the column's header

With Excombobox1
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
	End With
	.Columns.Item(0).SortOrder = exontrol.EXCOMBOBOXLib.SortOrderEnum.SortDescending
End With
78
How do I sort ascending a column, and put the sorting icon in the column's header

With Excombobox1
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.Columns.Item(0).SortOrder = exontrol.EXCOMBOBOXLib.SortOrderEnum.SortAscending
End With
72
How do I sort a column by numbers

With Excombobox1
	.Columns.Add("desc").SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortNumeric
	With .Items
		.AddItem(1)
		.AddItem(5)
		.AddItem(10)
		.SortChildren(0,0,False)
	End With
End With
116
How do I show the tooltip quicker

With Excombobox1
	.ToolTipDelay = 1
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
181
How do I show or hide the sorting icons, but still need sorting

With Excombobox1
	.Columns.Add("Sorted").SortOrder = exontrol.EXCOMBOBOXLib.SortOrderEnum.SortAscending
	.Columns.Item(0).DisplaySortIcon = False
End With
194
How do I show buttons for all cells in the column

With Excombobox1
	With .Columns.Add("Button")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasButton,True)
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellButtonAutoWidth,True)
	End With
	.Items.AddItem(" Button 1 ")
	.Items.AddItem(" Button 2 ")
End With
193
How do I show buttons for all cells in the column

With Excombobox1
	.Columns.Add("Button").set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasButton,True)
	.Items.AddItem(0)
	.Items.AddItem(1)
End With
109
How do I show alternate rows in different background color

With Excombobox1
	.BackColorAlternate = Color.FromArgb(240,240,240)
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
End With
559
How do I set an extra data for each item
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Excombobox1_MouseMoveEvent(ByVal sender As System.Object, ByVal Button As Short, ByVal Shift As Short, ByVal X As Integer, ByVal Y As Integer) Handles Excombobox1.MouseMoveEvent
	Dim c,hit,i
	With Excombobox1
		i = .get_ItemFromPoint(-1,-1,c,hit)
		Debug.Print( i )
		Debug.Print( .Items.get_ItemData(i) )
	End With
End Sub

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Default")
	With .Items
		.set_ItemData(.AddItem("method 1"),"your extra data of method 1")
		.InsertItem(0,"your extra data of method 2","method 2")
	End With
	With .Items
		.DefaultItem = .AddItem("method 3")
		.set_ItemData(0,"your extra data of method 3")
	End With
	.EndUpdate()
End With
286
How do I select an item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_SelectItem(h,True)
	End With
End With
347
How do I select a value

Dim h
With Excombobox1
	.IntegralHeight = True
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	With .Items
		h = .AddItem("Root 1.1")
		.set_CellCaption(h,1,"Root 1.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1,"Child 1.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 2.1"),1,"Child 2.2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2.1")
		.set_CellCaption(h,1,"Root 2.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1,"Child 1.2")
	End With
	.set_Select(1,"Root 1.2")
End With
348
How do I select a value

Dim h
With Excombobox1
	.IntegralHeight = True
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot
	.TreeColumnIndex = 1
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	With .Items
		h = .AddItem("Root 1.1")
		.set_CellCaption(h,1,"Root 1.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1,"Child 1.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 2.1"),1,"Child 2.2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2.1")
		.set_CellCaption(h,1,"Root 2.2")
		.set_CellCaption(.InsertItem(h,Nothing,"Child 1.1"),1,"Child 1.2")
	End With
	.Value = "Root 1.1"
End With
466
How do I select a NULL/empty value

With Excombobox1
	.BeginUpdate()
	.Style = exontrol.EXCOMBOBOXLib.StyleEnum.DropDownList
	.Columns.Add("Items")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.DefaultItem = .InsertItem(Nothing,Nothing,"")
		.set_ItemPosition(0,0)
		.set_SortableItem(0,False)
	End With
	.Value = ""
	.EndUpdate()
End With
114
How do I search case sensitive, using your incremental search feature

With Excombobox1
	.AutoSearch = True
	.ASCIILower = ""
	With .Columns
		.Add("exStartWith").AutoSearch = exontrol.EXCOMBOBOXLib.AutoSearchEnum.exStartWith
		.Add("exContains").AutoSearch = exontrol.EXCOMBOBOXLib.AutoSearchEnum.exContains
	End With
	With .Items
		.set_CellCaption(.AddItem("text"),1,"another text")
	End With
	With .Items
		.set_CellCaption(.AddItem("text"),1,"another text")
	End With
End With
262
How do I retrieve the focused item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_ItemBold(.FocusItem,True)
	End With
End With
345
How do I remove the drop down's border

With Excombobox1
	.DropDownBorder = exontrol.EXCOMBOBOXLib.AppearanceEnum.None2
End With
69
How do I remove the control's border

With Excombobox1
	.Appearance = exontrol.EXCOMBOBOXLib.AppearanceEnum.None2
End With
451
How do I prevent scrolling the control's data after user does the sort

With Excombobox1
	.EnsureOnSort = False
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.Columns.Item(0).SortOrder = exontrol.EXCOMBOBOXLib.SortOrderEnum.SortAscending
End With
585
How do I prevent changing the cell's state ( check-box state )
' CellStateChanging event - Fired before cell's state is about to be changed.
Private Sub Excombobox1_CellStateChanging(ByVal sender As System.Object, ByVal Cell As exontrol.EXCOMBOBOXLib.HCELL, ByRef NewState As Integer) Handles Excombobox1.CellStateChanging
	With Excombobox1
		With .Items
			NewState = .get_CellState(Nothing,Cell)
		End With
	End With
End Sub

Dim h
With Excombobox1
	.BeginUpdate()
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("P1")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Columns.Add("P2")
		.set_Def(exontrol.EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox,True)
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	.EndUpdate()
End With
77
How do I perform my own/custom sort, using my extra strings

With Excombobox1
	.Columns.Add("desc").SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortUserData
	With .Items
		.set_CellData(.AddItem("A"),0,"C")
		.set_CellData(.AddItem("B"),0,"B")
		.set_CellData(.AddItem("C"),0,"A")
		.SortChildren(0,0,False)
	End With
End With
76
How do I perform my own/custom sort, using my extra numbers

With Excombobox1
	.Columns.Add("desc").SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortUserData
	With .Items
		.set_CellData(.AddItem(0),0,2)
		.set_CellData(.AddItem(1),0,1)
		.set_CellData(.AddItem(2),0,0)
		.SortChildren(0,0,False)
	End With
End With
82
How do I perform my own sorting when user clicks the column's header

With Excombobox1
	.SortOnClick = exontrol.EXCOMBOBOXLib.SortOnClickEnum.exUserSort
	.Columns.Add("Column")
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
End With
334
How do I lock or make read-only the control

With Excombobox1
	.Locked = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
331
How do I let user to resize the drop down window, at runtime

With Excombobox1
	.AllowSizeGrip = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
332
How do I let user to resize only the width of the drop down window, at runtime

With Excombobox1
	.AllowSizeGrip = True
	.AllowVResize = False
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
333
How do I let user to resize only the height of the drop down window, at runtime

With Excombobox1
	.AllowSizeGrip = True
	.AllowHResize = False
	.MinWidthList = 100
	.MinHeightList = 100
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
End With
117
How do I let the tooltip being displayed longer

With Excombobox1
	.ToolTipPopDelay = 10000
	.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
153
How do I highlight in italic the numbers greater than a value

With Excombobox1
	.ConditionalFormats.Add("%0 >= 10").Italic = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
154
How do I highlight in italic the numbers greater than a value

With Excombobox1
	.ConditionalFormats.Add("%0 >= 10").StrikeOut = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
152
How do I highlight in bold the numbers greater than a value

With Excombobox1
	.ConditionalFormats.Add("%0 >= 10").Bold = True
	.Columns.Add("Numbers")
	.Items.AddItem(1)
	.Items.AddItem(2)
	.Items.AddItem(10)
	.Items.AddItem(20)
End With
71
How do I hide the control's header bar

With Excombobox1
	.HeaderVisible = False
End With
258
How do I get the parent item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_ItemBold(.get_ItemParent(.get_ItemChild(h)),True)
	End With
End With
232
How do I get the number or count of items

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
	With .Items
		.AddItem(.ItemCount)
	End With
End With
261
How do I get the number or count of child items

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.AddItem(.get_ChildCount(h))
	End With
End With
339
How do I get the handle of the drop down window

With Excombobox1
	.Columns.Add(Excombobox1.hWndDropDown)
End With
263
How do I get the handle of the cell

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_CellBold(Nothing,.get_ItemCell(h,0),True)
	End With
End With
257
How do I get the first child item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_ItemBold(.get_ItemChild(h),True)
	End With
End With
486
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

Dim h
With Excombobox1
	.BeginUpdate()
	With .Columns.Add("Date")
		.SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("DateTime")
		.SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortDateTime
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("Time")
		.SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortTime
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
		.FormatColumn = "time(value)"
	End With
	With .Columns.Add("Numeric")
		.SortType = exontrol.EXCOMBOBOXLib.SortTypeEnum.SortNumeric
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
	End With
	With .Columns.Add("String")
		.DisplayFilterButton = True
		.FilterList = exontrol.EXCOMBOBOXLib.FilterListEnum.exShowFocusItem Or exontrol.EXCOMBOBOXLib.FilterListEnum.exShowCheckBox Or exontrol.EXCOMBOBOXLib.FilterListEnum.exSortItemsDesc
	End With
	With .Items
		h = .AddItem(#1/27/2010#)
		.set_CellCaption(h,1,#1/27/2010 10:00:00 AM#)
		.set_CellCaption(h,2,.get_CellCaption(h,1))
		.set_CellCaption(h,3,1)
		.set_CellCaption(h,4,.get_CellCaption(h,3))
		h = .AddItem(#1/27/2011#)
		.set_CellCaption(h,1,#1/27/2011 9:00:00 AM#)
		.set_CellCaption(h,2,.get_CellCaption(h,1))
		.set_CellCaption(h,3,11)
		.set_CellCaption(h,4,.get_CellCaption(h,3))
		h = .AddItem(#11/2/2010#)
		.set_CellCaption(h,1,#11/2/2010 9:00:00 AM#)
		.set_CellCaption(h,2,.get_CellCaption(h,1))
		.set_CellCaption(h,3,2)
		.set_CellCaption(h,4,.get_CellCaption(h,3))
	End With
	.Columns.Item("DateTime").DisplayFilterDate = False
	.EndUpdate()
End With
96
How do I get ride of the rectangle arround focused item

With Excombobox1
	.ShowFocusRect = False
	.Columns.Add("Column")
	.Items.AddItem(0)
	.Items.AddItem(1)
End With
470
How do I get notified once the user changes the Filter For field
' EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
Private Sub Excombobox1_EditChange(ByVal sender As System.Object, ByVal ColIndex As Integer) Handles Excombobox1.EditChange
	With Excombobox1
		Debug.Print( "ColIndex: " )
		Debug.Print( ColIndex )
		Debug.Print( "Label: " )
		Debug.Print( .get_EditText(0) )
		Debug.Print( "FilterFor: " )
		Debug.Print( .get_EditText(-1) )
	End With
End Sub

With Excombobox1
	.BeginUpdate()
	.FilterForVisible = True
	.FilterForBackColor = Color.FromArgb(240,240,240)
	.IntegralHeight = True
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
	.EndUpdate()
End With
547
How do I get a list of interfaces the object implemenets

Dim rs
With Excombobox1
	.BeginUpdate()
	.ColumnAutoResize = False
	With New DAO.PrivDBEngine()
		rs = .OpenDatabase("C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb").OpenRecordset("Orders")
	End With
	' Add 'exontrol.expropertieslist.dll(ExPropertiesList.dll)' reference to your project.
	Debug.Print( New exontrol.EXPROPERTIESLISTLib.expropertieslist().get_Interfaces(rs) )
	.DataSource = rs
	.Value = 10248
	.EndUpdate()
End With
287
How do I find the selected item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_SelectItem(h,True)
		.set_ItemBold(.get_SelectedItem(0),True)
	End With
End With
294
How do I find the index of the item based on its handle

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_ItemBold(.get_ItemByIndex(.get_ItemToIndex(h)),True)
	End With
End With
293
How do I find the handle of the item based on its index

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_ItemBold(.get_ItemByIndex(1),True)
	End With
End With
297
How do I find an item based on a path

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.set_ItemData(.InsertItem(h,Nothing,"Child 2"),1234)
		.set_ExpandItem(h,True)
		.set_ItemBold(.get_FindPath("Root 1\Child 1"),True)
	End With
End With
296
How do I find an item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		.set_ItemBold(.get_FindItem("Child 2",0),True)
	End With
End With
107
How do I filter programatically the control

With Excombobox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exPattern
		.Filter = "Item*"
	End With
	.Items.AddItem("Item 1")
	.Items.AddItem("")
	.Items.AddItem("Item 2")
	.ApplyFilter()
End With
63
How do I filter for items that match exactly the specified string

With Excombobox1
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterType = exontrol.EXCOMBOBOXLib.FilterTypeEnum.exFilter
		.Filter = "Item 1"
	End With
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
	.Items.AddItem("Item 3")
	.ApplyFilter()
End With
234
How do I expand or collapse an item

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
	End With
End With
123
How do I expand automatically the items while user types characters to searching for something ( incremental searching )

With Excombobox1
	.ExpandOnSearch = True
	.LinesAtRoot = exontrol.EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot
	.AutoSearch = True
	.Columns.Add("Column").AutoSearch = exontrol.EXCOMBOBOXLib.AutoSearchEnum.exContains
	With .Items
		.InsertItem(.InsertItem(.AddItem("text"),Nothing,"some text"),Nothing,"another text")
		.InsertItem(.InsertItem(.AddItem("text"),Nothing,"some text"),Nothing,"another text")
	End With
End With
260
How do I enumerate the visible items

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.set_ItemBold(.FirstVisibleItem,True)
		.set_ItemBold(.get_NextVisibleItem(.FirstVisibleItem),True)
	End With
End With
259
How do I enumerate the siblings items

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.set_ItemBold(.get_NextSiblingItem(.FirstVisibleItem),True)
		.set_ItemBold(.get_PrevSiblingItem(.get_NextSiblingItem(.FirstVisibleItem)),True)
	End With
End With
256
How do I enumerate the root items

Dim h
With Excombobox1
	.Columns.Add("Default")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ExpandItem(h,True)
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.set_ItemBold(.get_RootItem(0),True)
		.set_ItemUnderline(.get_RootItem(1),True)
	End With
End With
40
How do I ensure that the focused item is visible, after the user does the sort

With Excombobox1
	.EnsureOnSort = True
	.Columns.Add("Column")
	With .Items
		.AddItem("Item 3")
		.AddItem("Item 1")
		.AddItem("Item 2")
	End With
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.PutItems(.GetItems(0))
	.Columns.Item(0).SortOrder = exontrol.EXCOMBOBOXLib.SortOrderEnum.SortAscending
End With
108
How do I enlarge the drop down filter window

With Excombobox1
	.FilterBarDropDownHeight = "-320"
	With .Columns.Add("Column")
		.DisplayFilterButton = True
		.FilterBarDropDownWidth = "-320"
	End With
	.Items.AddItem("Item 1")
	.Items.AddItem("Item 2")
End With
165
How do I enlarge or change the size of the control's scrollbars

With Excombobox1
	.ScrollHeight = 18
	.ScrollWidth = 18
	.ScrollButtonWidth = 18
	.ScrollButtonHeight = 18
End With
112
How do I enable the incremental search feature within a column

With Excombobox1
	.AutoSearch = True
	With .Columns
		.Add("exStartWith").AutoSearch = exontrol.EXCOMBOBOXLib.AutoSearchEnum.exStartWith
		.Add("exContains").AutoSearch = exontrol.EXCOMBOBOXLib.AutoSearchEnum.exContains
	End With
	With .Items
		.set_CellCaption(.AddItem("text"),1,"another text")
	End With
	With .Items
		.set_CellCaption(.AddItem("text"),1,"another text")
	End With
End With
138
How do I enable resizing the columns at runtime

With Excombobox1
	.ColumnsAllowSizing = True
	.MarkSearchColumn = False
	.HeaderVisible = False
	.Columns.Add("Column 1")
	.Columns.Add("Column 2")
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exVLines
	With .Items
		.set_CellCaption(.AddItem("Item 1"),1,"Sub Item 1")
	End With
	With .Items
		.set_CellCaption(.AddItem("Item 2"),1,"Sub Item 2")
	End With
End With
351
How do I enable resizing all the items at runtime

With Excombobox1
	.ItemsAllowSizing = exontrol.EXCOMBOBOXLib.ItemsAllowSizingEnum.exResizeAllItems
	.DrawGridLines = exontrol.EXCOMBOBOXLib.GridLinesEnum.exHLines
	.Columns.Add("Column")
	.Items.AddItem("Item 1")
	With .Items
		.set_ItemHeight(.AddItem("Item 2"),48)
	End With
	.Items.AddItem("Item 3")
End With
137
How do I enable resizing ( changing the height ) the items at runtime

With Excombobox1
	.ItemsAllowSizing = exontrol.EXCOMBOBOXLib.ItemsAllowSizingEnum.exResizeItem
	.ScrollBySingleLine = True
	.Columns.Add("Column")
	.Items.AddItem("Item 1")
	With .Items
		.set_ItemHeight(.AddItem("Item 2"),48)
	End With
	.Items.AddItem("Item 3")
End With
180
How do I enable or disable the entire column

With Excombobox1
	.Columns.Add("C1")
	.Columns.Add("Disabled").Enabled = False
	With .Items
		.set_CellCaption(.AddItem(0),1,"0.1")
	End With
	With .Items
		.set_CellCaption(.AddItem(1),1,"1.1")
	End With
End With
268
How do I enable or disable a cell

Dim h
With Excombobox1
	.Columns.Add("C1")
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.set_CellCaption(h,1,"Cell 2")
		.set_CellEnabled(h,1,False)
	End With
End With
553
How do I display the position of the item with 0-padding

With Excombobox1
	.BeginUpdate()
	.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
		.AddItem("Item D")
	End With
	.EndUpdate()
End With
349
How do I display the icons being selected in the control's label

With Excombobox1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
	"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
	"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
	"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.Columns.Add("Column")
	With .Items
		.set_CellImage(.AddItem("Image 1"),0,1)
		.set_CellImage(.AddItem("Image 2"),0,2)
		.set_CellImage(.AddItem("Image 3"),0,3)
	End With
	.set_AssignEditImageOnSelect(0,True)
	.Value = "Image 2"
End With